home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / crack200 / module2.bas < prev    next >
BASIC Source File  |  1999-09-05  |  1KB  |  42 lines
  1. Attribute VB_Name = "Module2"
  2. Public xx As Integer
  3. Public xxx As Integer
  4. Public xxxx As Integer
  5. Public yy As Integer
  6. Public yyy As Integer
  7. Public yyyy As Integer
  8. Public mxx As Integer
  9. Public myy As Integer
  10. Public mxxx As Integer
  11. Public mxxxx As Integer
  12. Public myyy As Integer
  13. Public myyyy As Integer
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21. Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  22.  
  23.  
  24. Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  25.  
  26.  
  27. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  28.     Public Const MOUSEEVENTF_LEFTDOWN = &H2
  29.     Public Const MOUSEEVENTF_LEFTUP = &H4
  30.     Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
  31.     Public Const MOUSEEVENTF_MIDDLEUP = &H40
  32.     Public Const MOUSEEVENTF_RIGHTDOWN = &H8
  33.     Public Const MOUSEEVENTF_RIGHTUP = &H10
  34.     Public Const MOUSEEVENTF_MOVE = &H1
  35.  
  36.  
  37. Public Type POINTAPI
  38.     X As Long
  39.     Y As Long
  40.     End Type
  41.  
  42.